9 DIMD$(200,3):POKE53280,0:POKE53281,0:POKE646,6:POKE24,0
10 GOSUB70:GOTO100
20 POKE198,0:WAIT198,1:GETE$
21 IFE$=CHR$(133)THENRETURN
22 GOTO20
25 POKE198,0:WAIT198,1:GETE$
26 IFE$=CHR$(136)THENRETURN
27 GOTO25
40 E$="":ZU=1
41 POKE214,R:POKE211,S:SYS58640:Z=0
42 POKE204,0:GET A$:IF A$=""GOTO42
43 IF ASC(A$)=64 THEN ZU=0
44 IFZU=0 AND ASC(A$)=13 THEN PRINT".":POKE204,1:ZU=1:GOTO 63
46 IF ASC(A$)=44 GOTO 42
47 IF ASC(A$)=13 AND LEN(E$)<>L THEN PRINT" ":GOTO54
48 IF ASC(A$)=13 AND LEN(E$)=L THEN PRINT" ":GOTO54
49 IF ASC(A$)=20 THEN PRINT".":GOTO 55:REM INST/DEL-TASTE
50 IF LEN(E$)=L GOTO 42
51 IF ASC(A$)<32 OR ASC(A$)>90 GOTO 42
52 PRINT A$;:E$=E$+A$:Z=Z+1
53 GOTO 42
54 POKE204,1:RETURN
55 POKE204,1:IF LEN(E$)=0 THEN A$="":GOTO 40
56 IF LEN(A$)=0 GOTO 42
57 IF Z=0 GOTO 42
58 POKE204,1:A$=LEFT$(A$,LEN(A$)-1)
59 E$=LEFT$(E$,LEN(E$)-1)
60 POKE214,R:POKE211,S:SYS58640
61 PRINT E$;:Z=Z-1
62 POKE 214,R:POKE211,S+LEN(E$):SYS58640:GOTO 42
63 RETURN
70 S1$="":R1$="":R2$=""
71 S2$=S1$+"DATENDISK IN FLOPPY          DRUECK F 1":R3$=""
72 S3$=S1$+"              BITTE WARTEN             ":R4$=""
73 S4$=S1$+"FLOPPY-FEHLER                DRUECK F 7"
74 S5$=S1$+"                                       ":R5$="":R6$=""
75 S6$=S1$+"FALSCHE EINGABE              DRUECK F 1"
76 S7$=S1$+"KEINE DATEN VORHANDEN        DRUECK F 1"
77 S8$=S1$+"DATENENDE                    DRUECK F 1"
78 S9$=S1$+"           DRUCKER IN BETRIEB          "
79 RETURN
80 FORI=5TO22:POKE781,I:SYS59903:NEXT:RETURN
90 POKE768,61:OPEN1,4,7:PRINT#1,"";:CLOSE1:POKE768,139
91 IFST<>-128THENRETURN
92 PRINTS1$:PRINT"[145]DRUCKER ANSCHLIESSEN         DRUECK F 1":GOSUB20:GOTO1100
100 PRINT"[147]"
101 PRINT" [154][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
102 PRINT" [154][214]                                  [214][146]"
103 PRINT" [154][214]     PROGRAMMLISTEN ERSTELLEN     [214][146]"
104 PRINT" [154][214]                                  [214][146]"
105 PRINT" [214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][214][146]"
110 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][178][192][192][192][178][192][192][192][192][192][192][179]"
111 PRINT" [194]                        [194]   [194]      [194]"
112 PRINT" [194] LISTE EINGEBEN         [194] 1 [194]      [194]"
113 PRINT" [194]                        [194]   [194]      [194]"
114 PRINT" [194] LISTE AUSGEBEN         [194] 2 [194]      [194]"
115 PRINT" [194]                        [194]   [194]      [194]"
116 PRINT" [194] LISTE EINLESEN         [194] 3 [194]      [194]"
117 PRINT" [194]                        [194]   [194]      [194]"
118 PRINT" [194] LISTE SPEICHERN        [194] 4 [194]      [194]"
119 PRINT" [194]                        [194]   [194]      [194]"
120 PRINT" [194] DISK-OPERATIONEN       [194] 5 [194]      [194]"
121 PRINT" [194]                        [194]   [194]      [194]"
122 PRINT" [194] PROGRAMMENDE           [194] 6 [194]      [194]"
123 PRINT" [194]                        [194]   [194]      [194]"
124 PRINT" [171][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][177][192][192][192][177][192][192][192][192][192][192][179]"
130 POKE198,0:WAIT198,1:GETE$
131 IFE$="1"THENGOSUB140:GOTO200
132 IFE$="2"THENGOSUB141:GOSUB160:GOTO300
133 IFE$="3"THENGOSUB142:GOTO1600
134 IFE$="4"THENGOSUB143:GOSUB160:GOTO1500
135 IFE$="5"THENGOSUB144:GOTO1400
136 IFE$="6"THENGOSUB145:GOTO5000
138 GOTO130
140 PRINT"":GOSUB150:RETURN
141 PRINT"":GOSUB150:RETURN
142 PRINT"":GOSUB150:RETURN
143 PRINT"":GOSUB150:RETURN
144 PRINT"":GOSUB150:RETURN
145 PRINT"":GOSUB150:RETURN
150 PRINTTAB(33)"_":FORI=1TO1000:NEXT:RETURN
160 IFD$(D,1)=""THENPRINTS7$:GOSUB20:GOTO100
161 RETURN
200 PRINT"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
201 PRINT" [154]*                                   *"
202 PRINT" [154]*           DATEN EINGABE           *"
203 PRINT" [154]*                                   *"
204 PRINT" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
205 D=D+1:PRINTS5$
206 GOSUB210:PRINTR4$;TAB(13);D;TAB(32);300-D;:GOTO222
210 PRINTR3$:PP=0
211 PRINT" [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
212 PRINT" [194]                                   [194]"
213 PRINT" [194]DATENSATZ.:     NOCH VORHANDEN     [194]"
214 PRINT" [194]                                   [194]"
215 PRINT" [194]1) PRG.-TITEL : ................   [194]"
216 PRINT" [194]                                   [194]"
217 PRINT" [194]2) KATEGORIE  : .................. [194]"
218 PRINT" [194]                                   [194]"
219 PRINT" [194]3) BLOCKS     : ...                [194]"
220 PRINT" [194]                                   [194]"
221 PRINT" [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]":RETURN
222 R=13:S=18:L=16:GOSUB40:D$(D,1)=E$
223 IFLEN(D$(D,1))<=0THEN222
224 IFPP=1THENRETURN
225 R=15:S=18:L=18:GOSUB40:D$(D,2)=E$
226 IFLEN(D$(D,2))<=0THEND$(D,2)="-"
227 IFPP=1THENRETURN
229 R=17:S=18:L=3:GOSUB40:D$(D,3)=E$
230 IFLEN(D$(D,3))<=0THEND$(D,3)="-"
231 IFPP=1THENRETURN
233 PRINTS1$:PRINT"[145]WEITER F 1    KORREKTUR F 3   MENUE F 7"
234 POKE198,0:WAIT198,1:GETE$
235 IFE$=CHR$(133)THEN205
236 IFE$=CHR$(134)THEN240
237 IFE$=CHR$(136)THEN100
238 GOTO234
240 PRINTS1$:PRINT"[145]WELCHE ZEILE (1-3)  KEINE AENDERUNG F 1":PP=1
241 POKE198,0:WAIT198,1:GETE$
242 IFE$="1"THENGOSUB222:GOTO250
243 IFE$="2"THENGOSUB225:GOTO250
244 IFE$="3"THENGOSUB229:GOTO250
245 IFE$=CHR$(133)THEN233
246 GOTO241
250 PRINTS1$:PRINT"[145]NOCH AENDERN F 1    KEINE AENDERUNG F 3"
251 POKE198,0:WAIT198,1:GETE$
252 IFE$=CHR$(133)THEN240
253 IFE$=CHR$(134)THEN233
254 GOTO251
260 PRINTS2$:GOSUB20:PRINTS3$
261 OPEN1,8,15,"S:"+A$:CLOSE1
262 X=0:OPEN2,8,15:OPEN1,8,2,+A$+",S,W":INPUT#2,X
263 IFX=0THEN265
264 IFX>0THENCLOSE2:CLOSE1:CLOSE15:PRINTS4$:GOSUB25:GOTO100
265 PRINT#1,D:FORJ=1TOD:FORM=1TO3
266 PRINT#1,D$(J,M):NEXTM,J:CLOSE2:CLOSE3:CLOSE15:RETURN
269 PRINTS2$:GOSUB20:PRINTS3$
270 X=0:OPEN2,8,15:OPEN1,8,2,+A$+",S,R":INPUT#2,X
271 IFX=0THEN273
272 IFX>0THENCLOSE2:CLOSE1:CLOSE15:PRINTS4$:GOSUB25:GOTO100
273 INPUT#1,D:FORJ=1TOD:FORM=1TO3
274 INPUT#1,D$(J,M):NEXTM,J:CLOSE2:CLOSE1:CLOSE15:RETURN
300 PRINT"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
301 PRINT" [154]*                                   *"
302 PRINT" [154]*           DATEN AUSGABE           *"
303 PRINT" [154]*                                   *"
304 PRINT" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
309 GOSUB1000
310 GOSUB80:GOSUB210:FORB=1TOD:GOSUB350
311 PRINTS1$:PRINT"[145]WEITER F 1                  BEENDEN F 3"
312 POKE198,0:WAIT198,1:GETE$
313 IFE$=CHR$(133)THEN317
315 IFE$=CHR$(134)THEN309
316 GOTO312
317 GOSUB210:NEXT
318 PRINTS1$:PRINTS8$:GOSUB20:GOTO300
340 GOSUB1000
350 PRINT""
351 PRINTTAB(13);B;TAB(32);300-B:PRINT
352 PRINTTAB(18);D$(B,1):PRINT
353 IFLEFT$(D$(B,2),1)="-"THEND$(B,2)=""
354 PRINTTAB(18);D$(B,2):PRINT
355 IFLEFT$(D$(B,3),1)="-"THEND$(B,3)=""
356 PRINTTAB(18);D$(B,3):RETURN
370 L=1:B(L)=D+1:M=1
371 J=B(L):I=M-1
372 IFJ-M<3THEN386
373 M1=INT((I+J)/2)
374 I=I+1
375 IFI=JTHEN382
376 IFD$(I,1)<=D$(M1,1)THEN374
377 J=J-1
378 IFI=JTHEN382
379 IFD$(J,1)>=D$(M1,1)THEN377
380 FORZ=1TO3:D$(O,Z)=D$(I,Z):D$(I,Z)=D$(J,Z):D$(J,Z)=D$(O,Z):NEXT
381 GOTO374
382 IFI>=M1THENI=I-1
383 IFJ=M1THEN385
384 FORZ=1TO3:D$(O,Z)=D$(I,Z):D$(I,Z)=D$(M1,Z):D$(M1,Z)=D$(O,Z):NEXT
385 L=L+1:B(L)=I:GOTO371
386 IFJ-M<2THEN389
387 IFD$(M,1)<D$(M+1,1)THEN389
388 FORZ=1TO3:D$(O,Z)=D$(M,Z):D$(M,Z)=D$(M+1,Z):D$(M+1,Z)=D$(O,Z):NEXT
389 M=B(L)+1:L=L-1
390 IFL>0THEN371
391 RETURN
1000 GOSUB80:PRINTS5$;R1$
1001 PRINTTAB(5)"AUSGABE EINZELN     F 1 [146]"
1002 PRINTTAB(5)"AUSGABE GESAMT      F 3 [146]"
1003 PRINTTAB(5)"AUSDRUCKEN          F 5 [146]"
1004 PRINTTAB(5)"ZUM HAUPTMENUE      F 7 [146]"
1005 POKE198,0:WAIT198,1:GETE$
1006 IFE$=CHR$(133)THEN1020
1007 IFE$=CHR$(134)THEN1011
1008 IFE$=CHR$(136)THEN100
1009 IFE$=CHR$(135)THEN2000
1010 GOTO1005
1011 GOSUB80:PRINTS5$;R1$:PRINTTAB(5)"AUSGABE NORMAL      F 1 [146]"
1012 PRINTTAB(5)"AUSGABE SORTIERT    F 3 [146]"
1013 PRINTTAB(5)"ZUM UNTERMENUE      F 7 [146]"
1014 POKE198,0:WAIT198,1:GETE$
1015 IFE$=CHR$(133)THEN310
1016 IFE$=CHR$(134)THENPRINTS3$:GOSUB370:GOTO310
1017 IFE$=CHR$(136)THEN1000
1018 GOTO1014
1020 GOSUB80:PRINTS5$:PRINTR5$
1021 PRINTTAB(7)"SUCHEN DATENNUMMER  F 1 [146]"
1022 PRINTTAB(7)"SUCHEN PRG.TITEL    F 3 [146]"
1023 PRINTTAB(7)"LISTEN PRG.TITEL    F 5 [146]"
1024 PRINTTAB(7)"ZUM UNTERMENUE      F 7 [146]"
1025 POKE198,0:WAIT198,1:GETE$
1026 IFE$=CHR$(133)THENGOSUB1040:GOTO1200
1027 IFE$=CHR$(134)THENGOSUB1060:GOTO1200
1028 IFE$=CHR$(136)THEN1000
1029 IFE$=CHR$(135)THEN1080
1030 GOTO1025
1040 PRINTR2$:PRINTTAB(7)"GEBEN SIE DIE GESUCHTE"
1042 PRINTTAB(7)"DATENNUMMER EIN."
1043 PRINTTAB(7)"ZUM UNTERMENUE MIT  * [146]"
1044 PRINTTAB(7)"DATENNUMMER : ..."
1045 R=20:S=21:L=3:GOSUB40:ZA$=E$:ZA=VAL(ZA$):IFZA$="*"THEN1000
1046 IFLEN(ZA$)<=0THEN1045
1048 FORB=1TOD
1049 IFZA=BTHENRETURN
1050 IFZA<=0THENPRINTS6$:GOSUB20:GOSUB80:PRINTS5$:GOTO1040
1051 NEXT:PRINTS7$:GOSUB20:GOTO1020
1060 PRINTR2$:PRINTTAB(7)"GEBEN SIE DEN GESUCHTEN"
1062 PRINTTAB(7)"PROGRAMM-TITEL EIN."
1063 PRINTTAB(7)"ZUM UNTERMENUE MIT  * [146]"
1064 PRINTTAB(7)"PRG.-TITEL: ................"
1065 R=20:S=19:L=16:GOSUB40:ZA$=E$:IFZA$="*"THEN1000
1066 IFLEN(ZA$)<=0THENPRINTS6$:GOSUB20:GOSUB80:PRINTS5$:GOTO1060
1068 FORB=1TOD
1069 IFZA$=D$(B,1)THENRETURN
1070 IFZA$=LEFT$(D$(B,1),1)ORZA$=LEFT$(D$(B,1),2)ORZA$=LEFT$(D$(B,1),3)THENRETURN
1071 IFZA$=LEFT$(D$(B,1),4)ORZA$=LEFT$(D$(B,1),5)ORZA$=LEFT$(D$(B,1),6)THENRETURN
1072 NEXT:PRINTS7$:GOSUB20:GOTO1020
1080 GOSUB80:PRINTR6$:V=0:FORB=1TOD:V=V+1:
1082 PRINTTAB(5);"NR.:";B;TAB(15)"TITEL : ";D$(B,1)
1085 IFV=15THEN1087
1086 NEXT:PRINTS8$:GOSUB20:GOTO1020
1087 PRINTS1$:PRINT"[145]WEITER F 1                  BEENDEN F 5"
1090 POKE198,0:WAIT198,1:GETE$
1091 IFE$=CHR$(133)THENV=0:GOSUB80:PRINTR6$:GOTO1086
1093 IFE$=CHR$(135)THEN1020
1094 GOTO1090
1100 GOSUB80:PRINTS5$;R1$
1101 PRINTTAB(10)"SCHALTEN SIE BITTE"
1102 PRINTTAB(10)"DEN DRUCKER EIN  ."
1103 PRINTTAB(10)"DRUECK        F 1 [146]"
1104 PRINTTAB(10)"ODER MENUE    F 7 [146]"
1105 POKE198,0:WAIT198,1:GETE$
1106 IFE$=CHR$(133)THENGOSUB90:RETURN
1107 IFE$=CHR$(136)THEN1000
1108 GOTO1105
1200 GOSUB80:GOSUB210:GOSUB350
1210 PRINTS1$:PRINT"[145]WEITER F 1  KORREKTUR F 3  LOESCHEN F 5"
1211 POKE198,0:WAIT198,1:GETE$
1212 IFE$=CHR$(133)THEN1020
1213 IFE$=CHR$(134)THEN1350
1214 IFE$=CHR$(135)THEN4500
1215 GOTO1211
1300 R=13:S=18:L=16:GOSUB40:D$(B,1)=E$
1301 IFLEN(D$(B,1))<=0THEN1300
1302 RETURN
1305 R=15:S=18:L=18:GOSUB40:D$(B,2)=E$
1306 IFLEN(D$(B,2))<=0THEND$(B,2)="-"
1307 RETURN
1310 R=17:S=18:L=3:GOSUB40:D$(B,3)=E$
1311 IFLEN(D$(B,3))<=0THEND$(B,3)="-"
1312 RETURN
1350 PRINTS1$:PRINT"[145]WELCHE ZEILE 1 - 3          BEENDEN F 1"
1356 POKE198,0:WAIT198,1:GETE$
1357 IFE$="1"THENGOSUB1300:GOTO1370
1358 IFE$="2"THENGOSUB1305:GOTO1370
1359 IFE$="3"THENGOSUB1310:GOTO1370
1360 IFE$=CHR$(133)THEN1020
1361 GOTO1356
1370 PRINTS1$:PRINT"[145]NOCH KORRIGIEREN F 1        BEENDEN F 3"
1371 POKE198,0:WAIT198,1:GETE$
1372 IFE$=CHR$(133)THENGOSUB210:GOSUB350:GOTO1350
1374 IFE$=CHR$(134)THEN1020
1375 GOTO1371
1400 PRINT"[147]":PRINTS5$:PRINT" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
1401 PRINT" [154]*                                   *"
1402 PRINT" [154]*           DISK-OPERATIONEN        *"
1403 PRINT" [154]*                                   *"
1404 PRINT" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
1410 PRINTTAB(5)"DISKETTE FORMATIEREN   F 1 [146]"
1411 PRINTTAB(5)"DISKETTE VALIDIEREN    F 3 [146]"
1412 PRINTTAB(5)"DATEI SCRATCHEN        F 5 [146]"
1413 PRINTTAB(5)"DIRECTORY EINLESEN     F 2 [146]"
1414 PRINTTAB(5)"ZUM HAUPTMENUE         F 7 [146]"
1415 POKE198,0:WAIT198,1:GETE$
1416 IFE$=CHR$(133)THEN1430
1417 IFE$=CHR$(134)THEN1460
1418 IFE$=CHR$(135)THEN1700
1419 IFE$=CHR$(136)THEN100
1420 IFE$=CHR$(137)THEN4000
1421 GOTO1415
1430 PRINTTAB(5)"KEINE FORMATIERUNG  * [146]"
1431 PRINTTAB(5)"NUR  RETURN [146] BEI ID=WEICHE FORM."
1432 PRINTTAB(5)"DISKNAME : ................"
1433 PRINTTAB(5)"ID-NUMMER: .."
1435 R=19:S=16:L=16:GOSUB40:ZA$=E$:IFZA$="*"THEN1400
1436 IFLEN(ZA$)<=0THEN1435
1437 R=20:S=16:L=2:GOSUB40:Z1$=E$:IFZ1$="*"THEN1400
1438 IFZ1$=""THENZ1$="":GOTO1441
1440 Z1=VAL(Z1$):IFZ1<=0THEN1437
1441 ZA$=ZA$+","+Z1$
1445 PRINTS2$:GOSUB20:PRINTS1$:PRINT"[145]DISKETTE WIRD FORMATIERT   BITTE WARTEN"
1447 X=0:OPEN15,8,15,"N:"+ZA$:INPUT#15,X:GOSUB1448:CLOSE15:GOTO1450
1448 IFX=0THENRETURN
1449 IFX>0THENPRINTS4$:CLOSE15:GOSUB25:GOTO1400
1450 PRINTS1$:PRINT"[145]FORMATIERUNG ABGESCHLOSSEN   DRUECK F 1"
1452 GOSUB80:PRINTR3$:PRINT"           DIRECTORY AUSGABE           "
1453 OPEN3,8,0,"$"+DR$:GET#3,X$,Y$:GET#3,X$,Y$:GET#3,X$,Y$:PRINTR4$
1454 PRINTTAB(8);CHR$(48-(X$>""));" ";:FORI=1TO23:GET#3,X$:PRINTX$;:NEXT:CLOSE3
1455 PRINTS1$:PRINT"[145]ZUM DISK-MENUE               DRUECK F 1":GOSUB20:GOTO1400
1460 PRINTS2$:GOSUB20:PRINTS1$:PRINT"[145]     VALDIDATE WIRD DURCHGEFUEHRT      ":X=0
1461 OPEN15,8,15,"V":INPUT#15,X:GOSUB1448:CLOSE15
1462 PRINTS1$:PRINT"[145]VALDIDATE DURCHGEFUEHRT      DRUECK F 1":GOSUB20:GOTO1400
1500 GOSUB80:PRINTS5$;R1$
1501 PRINTTAB(5)"SPEICHERN UNTER"
1502 PRINTTAB(5)"PROGRAMM-DATEINAMEN  F 1 [146]"
1503 PRINTTAB(5)"SPEICHERN MIT"
1504 PRINTTAB(5)"NEUEM DATEINAMEN     F 3 [146]"
1505 PRINTTAB(5)"ZUM MENUE ZURUECK    F 7 [146]"
1506 POKE198,0:WAIT198,1:GETE$
1507 IFE$=CHR$(133)THENA$="NEUE LIST/DRU":GOSUB260:GOTO100
1508 IFE$=CHR$(134)THENGOSUB1520:GOSUB260:GOTO100
1509 IFE$=CHR$(136)THEN100
1510 GOTO1006
1520 PRINTTAB(5)"GEBEN SIE DEN NEUEN"
1521 PRINTTAB(5)"DATEINAMEN EIN."
1522 PRINTTAB(5)"DATEINAMEN : ................"
1523 R=20:S=18:L=16:GOSUB40:A$=E$
1524 IFLEN(A$)<=0THEN1523
1525 RETURN
1600 GOSUB80:PRINTS5$;R1$
1601 PRINTTAB(5)"EINLESEN UNTER"
1602 PRINTTAB(5)"PROGRAMM-DATEINAMEN  F 1 [146]"
1603 PRINTTAB(5)"EINLESEN MIT"
1604 PRINTTAB(5)"NEUEM DATEINAMEN     F 3 [146]"
1605 PRINTTAB(5)"ZUM MENUE ZURUECK    F 7 [146]"
1606 POKE198,0:WAIT198,1:GETE$
1607 IFE$=CHR$(133)THENA$="NEUE LIST/DRU":GOSUB269:GOTO100
1608 IFE$=CHR$(134)THENGOSUB1620:GOSUB269:GOTO100
1609 IFE$=CHR$(136)THEN100
1610 GOTO1606
1620 PRINTTAB(5)"GEBEN SIE DEN "
1621 PRINTTAB(5)"DATEINAMEN EIN."
1622 PRINTTAB(5)"DATEINAMEN : ................"
1623 R=20:S=18:L=16:GOSUB40:A$=E$
1624 IFLEN(A$)<=0THEN1563
1625 RETURN
1700 GOSUB80:PRINTS5$;R1$
1701 PRINTTAB(5)"SRATCHEN DER"
1702 PRINTTAB(5)"PROGRAMM-DATEI       F 1 [146]"
1703 PRINTTAB(5)"SRATCHEN DES"
1704 PRINTTAB(5)"NEUEN DATEINAMENS    F 3 [146]"
1705 PRINTTAB(5)"ZUM UNTERMENUE       F 7 [146]"
1706 POKE198,0:WAIT198,1:GETE$
1707 IFE$=CHR$(133)THENA$="NEUE LIST/DRU":GOTO1720
1708 IFE$=CHR$(134)THENGOSUB1620:GOTO1720
1709 IFE$=CHR$(136)THEN1400
1710 GOTO1706
1720 X=0:PRINTS2$:GOSUB20:OPEN15,8,15,"S:"+A$:CLOSE15
1721 PRINTS1$:PRINT"[145]PROGRAMM NAME GELOESCHT      DRUECK F 1":GOSUB20:GOTO1400
2000 GOSUB1100
2010 GOSUB80:PRINTS5$;R1$:PRINTTAB(5)"LISTE AUSDRUCKEN         F 1 [146]"
2011 PRINTTAB(5)"ANSCHRIFT EINGEBEN       F 3 [146]"
2012 PRINTTAB(5)"ANSCHRIFT BEIBEHALTEN    F 5 [146]"
2013 PRINTTAB(5)"DATUM EINGEBEN           F 7 [146]"
2015 POKE198,0:WAIT198,1:GETE$
2016 IFE$=CHR$(133)THENGOSUB90:OPEN1,4:GOSUB2080:GOTO2070
2017 IFE$=CHR$(134)THENGOSUB2029:GOTO2010
2018 IFE$=CHR$(135)THENGOSUB2060:OPEN1,4:GOTO2070
2019 IFE$=CHR$(136)THENGOSUB2040:GOTO2010
2020 GOTO2015
2029 PRINTTAB(5)"NACHNAME : ...................."
2030 PRINTTAB(5)"VORNAME  : ...................."
2031 PRINTTAB(5)"STRASSE  : ...................."
2032 PRINTTAB(5)"PLZ :.... ORT: ................"
2033 R=17:S=16:L=20:GOSUB40:A1$=E$
2034 R=18:S=16:L=20:GOSUB40:A2$=E$
2035 R=19:S=16:L=20:GOSUB40:A3$=E$
2037 R=20:S=10:L=4:GOSUB40:A4$=E$
2038 R=20:S=20:L=16:GOSUB40:A5$=E$
2039 RETURN
2040 PRINTTAB(5)"GEBEN SIE DAS "
2041 PRINTTAB(5)"HEUTIGE DATUM EIN."
2042 PRINTTAB(5)"DATUM : .. .. .."
2045 R=20:S=13:L=2:GOSUB40:D1$=E$:D1=VAL(D1$)
2046 IFLEN(D1$)<=0ORLEN(D1$)<>2ORD1<=0ORD1>31THEN2045
2050 R=20:S=16:L=2:GOSUB40:D2$=E$:D2=VAL(D2$)
2051 IFLEN(D2$)<=0ORLEN(D2$)<>2ORD2<=0ORD2>12THEN2050
2055 R=20:S=19:L=2:GOSUB40:D3$=E$:D3=VAL(D3$)
2056 IFLEN(D3$)<=0ORLEN(D3$)<>2ORD3<=84ORD3>99THEN2055
2057 D$=D1$+"."+D2$+".19"+D3$:RETURN
2060 IFA1$=""THENPRINTS7$:GOSUB20:GOTO2010
2070 IFLEN(A1$)<=0THEN2076
2072 PRINT#1,SPC(5);CHR$(14);A2$;" ";A1$;CHR$(15)
2073 PRINT#1,SPC(10);A3$
2075 PRINT#1,SPC(10);A4$;" ";A5$:PRINT#1
2076 IFLEN(D$)<=0THEN2100
2077 PRINT#1,SPC(10)"DATUM : ";CHR$(14);D$;CHR$(15):PRINT#1:GOTO2100
2080 PRINTS9$:PRINT#1,CHR$(14);SPC(15)"NEUHEITEN";CHR$(15):PRINT#1:RETURN
2100 Q1$="PRG.NAME          KATEGORIE           BLOCKS"
2102 Q2$="[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]"
2110 GOSUB2115:GOTO2117
2115 PRINT#1,SPC(10);Q1$:PRINT#1,SPC(10);Q2$:PRINT#1:RETURN
2117 V=0:FORB=1TOD:V=V+1
2120 X1=LEN(D$(B,1)):X=18-X1
2121 X2=LEN(D$(B,2)):Y=20-X2
2125 IFV=60THEN2150
2130 PRINT#1,SPC(10);D$(B,1);SPC(X);D$(B,2);SPC(Y);D$(B,3)
2140 NEXT:PRINT#1:CLOSE1:PRINTS8$:GOSUB20:GOTO1000
2150 PRINTS1$:PRINT"[145]PAPIER WECHSELN              DRUECK F 1":GOSUB20:V=0:GOSUB2115:PRINTS9$
2151 GOTO2140
4000 GOSUB4001:PRINT"[147]":PRINTS2$:GOSUB20:PRINTX1$:PRINT"":GOTO4016
4001 X1$=S1$+"              DIRECTORY                ":RETURN
4016 W=0:Q=0:Z=0:C=0:OPEN1,8,0,"$0":GET#1,A$,B$
4050 GET#1,A$,B$:GET#1,A$,B$:C=0
4060 IFA$<>""THENC=ASC(A$)
4070 IFB$<>""THENC=C+ASC(B$)*256
4080 Z=Z+1:PRINTTAB(5)MID$(STR$(C),1);TAB(9);
4090 GET#1,B$:IFST<>0THEN4190
4100 IFB$<>CHR$(34)THEN4090
4110 W=W+1:IFW>1THEN4140
4120 PRINT"";:GET#1,B$:IFB$<>CHR$(34)THENPRINTB$;
4130 Q=Q+1:IFQ<16THEN4120:GOTO4150
4140 GET#1,B$:IFB$<>CHR$(34)THENPRINTB$ ;:GOTO4140
4150 GET#1,B$:IFB$=CHR$(34)THEN4150
4160 PRINTTAB(25);:C$=""
4170 C$=C$+B$:GET#1,B$:IFB$<>""THEN4170
4180 PRINTLEFT$(C$,3)
4181 IFZ=16THENGOSUB4200:Z=0:GOTO4080
4190 IFST=0THEN4050
4191 PRINT"BLOCKS FREE":CLOSE1
4192 PRINTS1$:PRINT"[145]DIRECTORY ENDE               DRUECK F 1":GOSUB20:GOTO1400
4200 PRINTS1$:PRINT"[145]WEITER F 1                  BEENDEN F 3"
4201 POKE198,0:WAIT198,1:GETE$
4202 IFE$=CHR$(133)THENPRINT"[147]":PRINTX1$:PRINT"":RETURN
4203 IFE$=CHR$(134)THENCLOSE1:GOTO1400
4204 GOTO4201
4500 PRINTS1$:PRINT"[145]NICHT LOESCHEN F 1         LOESCHEN F 3"
4501 POKE198,0:WAIT198,1:GETE$
4502 IFE$=CHR$(133)THEN1210
4503 IFE$=CHR$(134)THEN4510
4504 GOTO4501
4510 Y=0:J=0:FORY=BTOD:FORJ=1TO3:D$(Y,J)=D$(Y+1,J):NEXTJ,Y
4511 FORJ=1TO3:D$(D,J)=" ":NEXT:D=D-1
4512 PRINTS1$:PRINT"[145]DATENSATZ GELOESCHT          DRUECK F 1":GOSUB20:GOTO309
5000 PRINT"[147] [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
5001 PRINT" [154]*                                   *"
5002 PRINT" [154]*           PROGRAMM E N D E        *"
5003 PRINT" [154]*                                   *"
5004 PRINT" [154]*[192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192]*"
5005 PRINTTAB(6)"PROGRAMM BEENDEN        [1]"
5006 PRINTTAB(6)"PROGRAMM WIEDERHOLEN    [2]"
5008 POKE198,0:WAIT198,1:GETE$
5009 IFE$="1"THENSYS64760
5010 IFE$="2"THEN100
5012 GOTO5008
0